home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 February
/
EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso
/
www
/
amitrix
/
httx17.lha
/
HTTX
/
HTTXPluginCFG.awebrx
< prev
next >
Wrap
Text File
|
1998-01-23
|
11KB
|
303 lines
/*
HTTXPlugin Configuration
$VER: HTTXPluginCFG 2.1 (4.1.98) by Gabriele Favrin (favrin@tin.it)
Based on HTTXConfig.awebrx by Amitrix
*/
options results
options failat 999
'AllowCMD'
'GetCFG TEMPPATH VAR' fname
If (rc == 11) then do
address command 'C:RequestChoice >NIL: HTTXPlugin "Sorry, this plugin requires at least AWeb 3.1 !" "Ok"'
exit 20
end
else do
If Right(fname, 1) ~= "/" & Right(fname, 1) ~= ":" then do
fname=fname||"/HTTXconfig.html"
end
else do
fname=fname||"HTTXconfig.html"
end
end
args = ""
parse ARG args
parse SOURCE . . . resolved .
plugin_path = FindPath(resolved)
save_len=77
save_indent=3
save_ansi=0
save_7bit=0
save_hrmode=1
save_noalign=0
save_filenote=0
save_href=0
save_img=0
save_script=0
save_badhtml=0
print_len=77
print_indent=3
print_ansi=0
print_7bit=0
print_hrmode=1
print_noalign=0
print_href=0
print_img=0
print_script=0
print_badhtml=0
prefs_info=0
prefs_report=1
prefs_preview=0
prefs_savedir="ram:"
prefs_print_noheader=0
prefs_save_noheader=0
local_storagemode = "Use"
If args == "" then do
If Open(rcfg_fp, 'ENV:HTTXPlugin.config', 'R') then do
cfg=ReadLN(rcfg_fp)
If Left(cfg, 6) == "prefs_" then do
interpret translate(strip(cfg), ';',' ')
prefs_savedir=Translate(prefs_savedir, ' ', ';')
End
Call Close(rcfg_fp)
End
If Open(save_config_fp, "ENV:HTTX.prefs", 'R') then do
save_config_string = Upper(ReadLN(save_config_fp))
Call Close(save_config_fp)
If Pos('LEN=', save_config_string) > 0 then
parse VAR save_config_string 'LEN='save_len .
If Pos('INDENT=', save_config_string) > 0 then
parse VAR save_config_string 'INDENT='save_indent .
If Pos('HRMODE=', save_config_string) > 0 then
parse VAR save_config_string 'HRMODE='save_hrmode .
save_noalign = Pos('NOALIGN', save_config_string) > 0
save_ansi = Pos('ANSI', save_config_string) > 0
save_7bit = Pos('7BIT', save_config_string) > 0
save_filenote = Pos('FILENOTE', save_config_string) > 0
save_href = Pos('HREF', save_config_string) > 0
save_img = Pos('IMG', save_config_string) > 0
save_script = Pos('SCRIPT', save_config_string) > 0
save_badhtml = Pos('BADHTML', save_config_string) > 0
End
If Open(print_config_fp, "ENV:HTTXprt.prefs", 'R') then do
print_config_string = ReadLN(print_config_fp)
Call Close(print_config_fp)
If Pos('LEN=',print_config_string) > 0 then
parse VAR print_config_string 'LEN='print_len .
If Pos('INDENT=',print_config_string) > 0 then
parse VAR print_config_string 'INDENT='print_indent .
If Pos('HRMODE=',print_config_string) > 0 then
parse VAR print_config_string 'HRMODE='print_hrmode .
print_noalign = Pos('NOALIGN', print_config_string) > 0
print_ansi = Pos('ANSI', print_config_string) > 0
print_7bit = Pos('7BIT', print_config_string) > 0
print_href = Pos('HREF', print_config_string) > 0
print_img = Pos('IMG', print_config_string) > 0
print_script = Pos('SCRIPT', print_config_string) > 0
print_badhtml = Pos('BADHTML', print_config_string) > 0
End
If Open(HTML_fp,fname, 'W') then do
html_save_hrmode.0 = ""; html_save_hrmode.1 = ""; html_save_hrmode.2 = ""
html_print_hrmode.0 = ""; html_print_hrmode.1 = ""; html_print_hrmode.2 = ""
html='<html><head><title>HTTXPlugin - configuration</title></head><body><center id="httx"><form action="x-aweb:rexx/'||resolved||' "><a href="file:///'plugin_path'HTTXPlugin.doc.html">Help</a> <a href="#plugin">Plugin related configuration</a><p><input type="submit" name="local_storagemode" value="Save"> <input type="submit" name="local_storagemode" value="Use"> <input type="reset" name="" value="Last saved"><h2>HTML Conversion related configuration</h2><table align="center" cellspacing=8><tr><th>Options Description<th>Save<th>Print'
html=html||'<tr><td>Default directory<td colspan=2 align="center"><input size=19 maxlength=18 name="prefs_savedir" value="'prefs_savedir'">'
html=html||'<tr><td>Line length (min 15, max 255)<td align="center"><input size=3 maxlength=3 name="save_len" value="'save_len'"><td align="center"><input size=3 maxlength=3 name="print_len" value="'print_len'">'
html=html||'<tr><td>Indentation<td align="center"><input size=2 maxlength=2 name="save_indent" value="'save_indent'"><td align=center><input size=2 maxlength=2 name="print_indent" value="'print_indent'">'
Call html_radial('Ansi conversion of styles and links', 'save_ansi', 'print_ansi')
Call html_radial('Conversion of entities to 7 bit ascii', 'save_7bit', 'print_7bit')
html=html||'<tr><td>HR draw mode<td align="center">'
html_save_hrmode.save_hrmode = " checked"
html_print_hrmode.print_hrmode = " checked"
html=html||'OFF <input type=radio name="save_hrmode" value="0"'html_save_hrmode.0'>'
html=html||' ASCII <input type=radio name="save_hrmode" value="1"'html_save_hrmode.1'>'
html=html||' ANSI <input type=radio name="save_hrmode" value="2"'html_save_hrmode.2'>'
html=html||'<td align="center">OFF <input type=radio name="print_hrmode" value="0"'html_print_hrmode.0'>'
html=html||' ASCII <input type=radio name="print_hrmode" value="1"'html_print_hrmode.1'>'
html=html||' ANSI <input type=radio name="print_hrmode" value="2"'html_print_hrmode.2'>'
Call html_radial('Ignore text and HR alignment', 'save_noalign', 'print_noalign')
Call html_radial_single('Save Title as FileNote', 'save_filenote')
Call html_radial('Suppress Title/URL', 'prefs_save_noheader', 'prefs_print_noheader')
Call html_radial('Print HTML Link References', 'save_href', 'print_href')
Call html_radial('Print Image Alternate Texts', 'save_img', 'print_img')
Call html_radial('Print JavaScript scripts', 'save_script', 'print_script')
Call html_radial('Support badly written HTML', 'save_badhtml', 'print_badhtml')
html=html||'</table><hr width="15%"><br><a href="#httx">HTML Conversion related configuration</a><h2 align="center" id="plugin">Plugin related configuration</h2><table align="center" cellspacing=8><tr><th>Options Description<th>mode'
Call html_radial_single('Print HTTP/META header', 'prefs_info')
Call html_radial_single('Show preview of converted document', 'prefs_preview')
Call html_radial_single("Show conversion report", 'prefs_report')
html=html||'</table><p><a href="file:///'plugin_path'HTTXPlugin.doc.html">Help</a> <a href="#httx">HTML Conversion related configuration</a><p><input type="submit" name="local_storagemode" value="Save"> <input type="submit" name="local_storagemode" value="Use"> <input type="reset" name="" value="Last saved"></form><p><hr>HTTX by <a href="mailto:favrin@tin.it">Gabriele Favrin</a></center></body></html>'
Call WriteCh(html_fp, html)
Call Close(html_fp)
'Open file:///'fname 'RELOAD'
'Wait file:///'fname
address command 'C:Delete QUIET' fname
End
End
else do
interpret translate(strip(args),';',' ')
save_config_string = 'LEN='save_len 'INDENT='save_indent
print_config_string = 'LEN='print_len 'INDENT='print_indent
If save_ansi then
save_config_string = save_config_string 'ANSI'
If save_7bit then
save_config_string = save_config_string '7BIT'
If save_hrmode ~= 1 then
save_config_string = save_config_string 'HRMODE='save_hrmode
If save_noalign then
save_config_string = save_config_string 'NOALIGN'
If save_filenote then
save_config_string = save_config_string 'FILENOTE'
If save_href then
save_config_string = save_config_string 'HREF'
If save_img then
save_config_string = save_config_string 'IMG'
If save_script then
save_config_string = save_config_string 'SCRIPT'
If save_badhtml then
save_config_string = save_config_string 'BADHTML'
If print_ansi then
print_config_string = print_config_string 'ANSI'
If print_7bit then
print_config_string = print_config_string '7BIT'
If print_hrmode ~= 1 then
print_config_string = print_config_string 'HRMODE='print_hrmode
If print_noalign then
print_config_string = print_config_string 'NOALIGN'
If print_href then
print_config_string = print_config_string 'HREF'
If print_img then
print_config_string = print_config_string 'IMG'
If print_script then
print_config_string = print_config_string 'SCRIPT'
If print_badhtml then
print_config_string = print_config_string 'BADHTML'
If local_storagemode = "Save" then
Call do_save('ENVARC:')
Call do_save('ENV:')
address command 'UnsetEnv HTTXPlugin.savedir'
End
exit 0
do_save:
parse ARG dest_dir
If Open(save_config_fp, dest_dir||"HTTX.prefs", 'W') then do
Call WriteLN(save_config_fp, translate(save_config_string,,';'))
Call Close(save_config_fp)
End
If Open(print_config_fp, dest_dir||"HTTXprt.prefs", 'W') then do
Call WriteLN(print_config_fp, translate(print_config_string,,';'))
Call Close(print_config_fp)
End
prefs_savedir=Translate(prefs_savedir, ' ', ';')
last_char=right(prefs_savedir, 1)
if (last_char ~= ":") & (last_char ~= "/") then do
prefs_savedir=prefs_savedir"/"
end
If Open(plugin_config_fp, dest_dir||"HTTXPlugin.config", 'W') then do
Call WriteLN(plugin_config_fp, 'prefs_info="'prefs_info'" prefs_preview="'prefs_preview'" prefs_report="'prefs_report'" prefs_savedir="'prefs_savedir'" prefs_save_noheader="'prefs_save_noheader'" prefs_print_noheader="'prefs_print_noheader'"')
Call Close(plugin_config_fp)
End
return
html_radial:
parse ARG text , variable_name , variable_name2
html=html||'<tr><td>'text'<td align="center">'
If value(variable_name) then do
html=html||'ON <input type=radio name="'||variable_name||'" value="1" checked> OFF <input type=radio name="'||variable_name||'" value="0"><td align="center">'
End
else do
html=html||'ON <input type=radio name="'||variable_name||'" value="1"> OFF <input type=radio name="'||variable_name||'" value="0" checked><td align="center">'
End
If value(variable_name2) then do
html=html||'ON <input type=radio name="'||variable_name2||'" value="1" checked> OFF <input type=radio name="'||variable_name2||'" value="0">'
End
else do
html=html||'ON <input type=radio name="'||variable_name2||'" value="1"> OFF <input type=radio name="'||variable_name2||'" value="0" checked>'
End
return
html_radial_single:
parse ARG text , variable_name
html=html||'<tr><td>'text'<td align="center">'
If value(variable_name) then do
html=html||'ON <input type=radio name="'||variable_name||'" value="1" checked> OFF <input type=radio name="'||variable_name||'" value="0">'
End
else do
html=html||'ON <input type=radio name="'||variable_name||'" value="1"> OFF <input type=radio name="'||variable_name||'" value="0" checked>'
End
return
FindPath:
procedure
parse ARG pathf
dir_pos = Max(lastpos('/', pathf), lastpos(':', pathf))
If dir_pos > 0 then
return(left(pathf,dir_pos))
else
return('')